home *** CD-ROM | disk | FTP | other *** search
/ .net Business / NETB01.ISO / pc / PCSoftware / ASP Edit 2000 / _SETUP.1 / counter1.asp < prev    next >
Encoding:
Text File  |  1998-07-02  |  198 b   |  10 lines
  1. <%
  2.   ' Lock the Application object
  3.   Application.Lock
  4.   ' Increment the count
  5.     Application("Count") = Application("Count") + 1
  6.  
  7.   ' Unlock the Application object
  8.   Application.Unlock
  9. %>
  10.